SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
CREATE PROCEDURE [dbo].[SP_TTESTA_ORIG_Q02]    
/*--------------------------------------------------------------*/        
/*---- Empresa     : OFISIS S.A     ----*/        
/*---- Cliente     : OFISIS S.A     ----*/        
/*---- Sistema     : Ofiteso      ----*/        
/*---- Modulo     : Empresa      ----*/        
/*---- Programa        : Busca el estado actual de un documento  ----*/        
/*---- Script     :        ----*/        
/*---- Nombre SP    : SP_TTESTA_ORIG_Q02    ----*/        
/*---- Desarrollado por    : Reynaldo Menacho L  ----*/        
/*---- Fecha Creacion    : 13/04/2005    ----*/        
/*---- Base de Datos    : SQL      ----*/        
/*---- Version     : 2000       ----*/        
/*---- Invoca a SP     :        ----*/        
/*--------------------------------------------------------------*/        
/*--------------------------------------------------------------*/        
/*---- Comentarios         :        ----*/        
/*---- Drop Procedure  SP_TTESTA_ORIG_Q02               ----*/        
/*---- Grant ALL on  to public            ----*/        
/*----            ----*/        
/*--------------------------------------------------------------*/        
/*---- Grant Execute On SP_TTESTA_ORIG_Q02 to Public   ---*/        
/*----  Declare @ISCO_ESTA_DOCU TD_VC_003    
  Exec SP_TTESTA_ORIG_Q02 '01', 'C','0000000002','FAC','0001-0000000047', @ISCO_ESTA_DOCU OUTPUT        
  Select @ISCO_ESTA_DOCU --*/        
/*--------------------------------------------------------------------------*/        
@ISCO_EMPR TD_VC_002,        
@ISTI_ENTI TD_VC_001,        
@ISCO_ENTI  TD_VC_020,        
@ISTI_DOCU TD_VC_003,        
@ISNU_DOCU TD_VC_020,      
@ISCO_ESTA_ACTU TD_VC_003 OUTPUT
	As
Declare         
  @VDFE_EMIS TD_DT_001,        
  @VDFE_VENC TD_DT_001,        
  @VSCO_TIAU_CLIE TD_VC_001,        
  @VSCO_TIAU_PROV TD_VC_001,        
  @VSTI_DOCU_LETR TD_VC_003        
         
 Select @VSTI_DOCU_LETR = TI_DOCU        
 From TTDOCU_CNTB        
 Where ST_DOCU_0006 = 'S'        
        
 Select @VSCO_TIAU_CLIE = CO_TIAU_CLIE, @VSCO_TIAU_PROV = CO_TIAU_PROV        
 From TMPARA_TESO        
 Where CO_EMPR = @ISCO_EMPR        
       
 If @ISTI_ENTI = @VSCO_TIAU_CLIE        
	 Select @ISCO_ESTA_ACTU = CO_ESTA_DOCU    
	 From TMDOCC_GENE    
	 Where CO_EMPR = @ISCO_EMPR        
	 And CO_CLIE = @ISCO_ENTI      
	 And CO_TIPO_DOCU = @ISTI_DOCU      
	 And NU_DOCU_CLIE = @ISNU_DOCU      

 Else
   Begin        
	 Select @ISCO_ESTA_ACTU = CO_ESTA_DOCU    
	 From TMDOCP_GENE    
	 Where CO_EMPR = @ISCO_EMPR        
	 And CO_PROV = @ISCO_ENTI      
	 And CO_TIPO_DOCU = @ISTI_DOCU      
	 And NU_DOCU_PROV = @ISNU_DOCU      
	 
	 If @ISCO_ESTA_ACTU Is Null
	   Select @ISCO_ESTA_ACTU = CO_ESTA_DOCU    
	   From TMDOCU_PROV T1, TTDOCU_CNTB T2
	   Where T1.CO_TIPO_DOCU = T2.TI_DOCU
	   And (T2.ST_DOCU_0015 = 'S' Or T2.ST_DOCU_0017 = 'S')
	   And T1.IM_PAGA = 0
	   And T1.CO_ESTA_DOCU = 'ACT'
	   And CO_EMPR = @ISCO_EMPR        
	   And CO_PROV = @ISCO_ENTI      
	   And CO_TIPO_DOCU = @ISTI_DOCU      
	   And NU_DOCU_PROV = @ISNU_DOCU
   End
    
/* ---------------------------- Fin -----------------------------------*/


GO
